10 PRINTCHR$(147):POKE53280,.:POKE53281,.:POKE53265,80: 15 GOSUB1000 100 PRINT"----------------------------------------" 101 OPEN5,0:PRINT">AUSWAHL< (M = MENUE): ";:INPUT#5,A$:CLOSE5 120 IFA$="M"THEN GOSUB1000:GOTO240 130 IFA$="F"THENGOSUB2000:GOTO240 140 IFA$="I"THENGOSUB3000:GOTO240 150 IFA$="V"THENGOSUB4000:GOTO240 160 IFA$="K"THENGOSUB5000:GOTO240 170 IFA$="R"THENGOSUB6000:GOTO240 180 IFA$="S"THENGOSUB7000 190 IFA$="H"THENGOSUB8000:GOTO240 200 IFA$="ID"THENGOSUB8500:GOTO240 210 IFA$="$"THENGOSUB9000:GOTO240 220 IFA$="E"THEN10000:GOTO240 225 IFA$="@"THENGOSUB11000:GOTO240 226 IFA$="DV"THENGOSUB12000:GOTO240 230 PRINT" [194][197][198][197][200][204] ";A$;" [213][206][194][197][203][193][206][206][212] ":PRINT" ANWENDBARE BEFEHLE: ":GOSUB1000 240 GOTO100 1000 A=20: 1005 POKE53283,PEEK(53284): :POKE56325,1 1010 PRINT"[147] [194][197][198][197][200][204][197] " 1020 PRINT"FORMATIEREN  F " 1030 PRINT"INITIALISIEREN  I " 1040 PRINT"VALIDATE  V " 1050 PRINT"DATEI KOPIEREN  K " 1060 PRINT"DATEINAMEN AENDERN  R " 1070 PRINT"DISKNAMEN AENDERN  H " 1080 PRINT"ID AENDERN  ID" 1090 PRINT"DIRECTORY ZEIGEN  $ " 1100 PRINT"DATEI LOESCHEN  S " 1110 PRINT"STATUS ANZEIGEN  @ " 1115 PRINT"LW-ABFRAGE  DV" 1120 PRINT"MENUE  M " 1130 PRINT"ENDE  E " 1140 :POKE56325,55: RETURN 2000 PRINT"[147]DISKETTE FORMATIEREN" 2001 PRINT"=====================" 2010 PRINT"DISKNAME, ID ":INPUTN$,ID$ 2020 OPEN2,8,15:PRINT"DISK WIRD FORMATIERT" 2030 IFID$=""THENPRINT#2,"N0:"+N$:GOTO2050 2040 PRINT#2,"N0:"+N$+","+ID$ 2050 CLOSE2:PRINT"FORMATIERUNG BENDET":RETURN 3000 "[147]DISK WIRD INITIALISIERT" 3010 OPEN2,8,15,"I0":CLOSE2 3020 PRINT"INITIALISIERUNG BEENDET":RETURN 4000 PRINT"[147][146] VALIDATE [157][157][157][157][157][157][157][157][157][157]----------" 4001 :FORT=1TO750:NEXT:PRINT"VALIDATE ERFOLGT..." 4010 OPEN2,8,15,"V0":CLOSE2 4020 PRINT"[147] VALIDATE AUSGEFUEHRT":RETURN 5000 PRINT" DATEI KOPIEREN [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]----------------" 5020 INPUT" DATEI-NAME";N$ 5030 PRINT" 'SAVE'-NAME" 5040 INPUTN1$ 5050 PRINT" FILE "N$" WIRD KOPIERT" 5060 OPEN2,8,15,"C0:"+N1$+"="+N$:CLOSE2 5070 PRINT" VORGANG ABGESCHLOSSEN":RETURN 6000 PRINT" DATEI UMBENENNEN [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]------------------" 6010 PRINT" DATEI-NAME ALT:":INPUTN$ 6020 PRINT" DATEI-NAME NEU:":INPUTN1$ 6030 : 6040 OPEN2,8,15,"R0:"+N1$+"="+N$:CLOSE2 6050 PRINT" NAME (ALT) "N$" UMBENANNT IN "N1$:RETURN 7000 PRINT"[147] DATEI LOESCHEN [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]----------------" 7010 POKE19,1:PRINT" DATEI-NAME: ":INPUTN$:POKE19,0 7020 PRINT" DATEI "N$" WIRKLICH LOESCHEN? " 7030 GETL$:IFL$="N"THENRETURN 7040 IFL$<>"J"THEN7030 7050 PRINT" DATEI "N$" WIRD GELOESCHT!" 7060 OPEN2,8,15,"S0:"+N$:CLOSE2 7070 RETURN 8000 PRINT"[147] DISK-NAMEN AENDERN [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]---------------------" 8005 OPEN15,8,15:PRINT#15,"I"+HT$:OPEN1,8,3,"#":PRINT#15,"U1:3"HT",18,0" 8010 PRINT#15,"B-P:3,144":HN$="":FORN=1TO16:GET#1,A$:HN$=HN$+A$:NEXT 8020 PRINT" DISKETTEN-NAME ALT:[160] "HN$:PRINT"[146]" 8030 POKE19,1:INPUT"DISKETTEN-NAME NEU: ";H$:PRINT"[154][146]" :POKE19,0 8040 H$=LEFT$(H$+" ",16) 8050 PRINT#15,"B-P:3,144":PRINT#1,H$:PRINT#15,"U2:3"HT",18,0" 8060 I$="I"+MID$(STR$(HT),2):PRINT#15,I$ 8070 PRINT"NAME GEAENDERT":CLOSE1:CLOSE15:RETURN 8500 PRINT"[147] DISK-ID AENDERN [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]-----------------" 8505 OPEN15,8,15:PRINT#15,"I"+IT$:OPEN1,8,3,"#":PRINT#15,"U1:3"IT",18,0" 8510 PRINT#15,"B-P:3,162":GET#1,A$,B$,C$,D$":?"DISK-ID: "A$B$ 8520 [151]19,1:[133]" NEUE ID-NUMMER":ID$:[139][195](ID$)[179][177]4[167]ID$[178][200](ID$[170]" ",5) 8530 [152]15,"B-P:3,162":[152]1,ID$;:[152]15,U2"3;0;18;0 8700 GOTO8060 9000 PRINT"[147] DIRECTORY [157][157][157][157][157][157][157][157][157][157][157]-----------" 9020 OPEN1,8,0,"$0" 9030 GET#1,A$,B$ 9040 GET#1,A$,B$ 9050 GET#1,A$,B$ 9055 D=0 9060 IFA$<>""THEND=ASC(A$) 9070 IFB$<>""THEND=D+ASC(B$)*256 9080 PRINT;"[156]"MID$(STR$(D),2);TAB(5):PRINT" [146][151]"; 9090 GET#1,B$:IFSTTHEN9180 9100 IFB$<>CHR$(34)THEN9090 9110 GET#1,B$:IFB$<>CHR$(34)THENPRINTB$;:GOTO9110 9120 GET#1,B$:IFB$=CHR$(32)THEN9120 9130 PRINTTAB(23);:D$="" 9140 D$=D$+B$:GET#1,B$:IFB$<>""THEN9140 9150 PRINT""LEFT$(D$,3) 9160 : 9170 IFST=0THEN9040 9180 PRINT" BLOCKS FREE":CLOSE1:RETURN 10000 GOSUB11000:POKE198,0:WAIT198,1:POKE198,0:SYS2048 11000 PRINT"[146][147] STATUS [157][157][157][157][157][157][157][157][157] --------" 11030 OPEN1,8,15: INPUT#1,A,B$,C,D 11040 PRINT"FEHLER IN "A"("B$")" 11050 CLOSE1:RETURN